﻿Imports SIAVU.Dominio

Namespace Presentacion

    Partial Public Class ReprogramarTripulantes
        Inherits System.Web.UI.Page

        Private Sub Page_Init(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Init
            SetearControles()
        End Sub

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            If Not (Page.IsPostBack) Then
                pnlReprogramacion.Visible = False
            End If
        End Sub

#Region "Propiedades"

        Public Property PanelReprogramacionVisible() As Boolean
            Get
                Return pnlReprogramacion.Visible
            End Get
            Set(ByVal value As Boolean)
                pnlReprogramacion.Visible = value
            End Set
        End Property

#End Region

#Region "Métodos"

        Public Sub SetearControles()
            '//Inicializo propiedades en ambos controles
            Dim strPeriodo As String = Date.Now.Year.ToString() + "/" + Date.Now.Month.ToString()
            ucMiProgramacion1.NombreParaMostrar = "Plan de Vuelo"
            ucMiProgramacion1.TipoMiProgramacion = ETipoProgramacion.PlanVuelo
            ucMiProgramacion1.PeriodoProgramacion = strPeriodo
            ucPostas1.Periodo = strPeriodo

        End Sub

        Private Sub ActualizarActividades()
            Try
                Page.Validate()
                If (Page.IsValid) Then
                    '//Si pasa las validaciones intento guardar la preprogramacion
                    Dim oUsuario As New Usuario
                    oUsuario.UsuarioID = Session("UsuarioIDucMiProgramacion")
                    ucMiProgramacion1.AsignarActividadIDCero()
                    If (oUsuario.ActualizarActividadesProgramacion(ucMiProgramacion1.ListaActividades, _
                                                               ucMiProgramacion1.ListaActividadesEliminadas, _
                                                               CDate(ucMiProgramacion1.PeriodoProgramacion + "/01"), _
                                                               False, ETipoProgramacion.PlanVuelo)) Then

                        ucMiProgramacion1.LimpiarSession()
                        Session("MensajeInformacion") = "La Programacion del usuario se ha guardado de manera exitosa"
                        Response.Redirect("MenuPrincipal.aspx", False)
                    End If
                End If

            Catch ex As Exception
                Response.Redirect("_NotificacionDeError.aspx")
            End Try
        End Sub

#End Region

#Region "Eventos"

        Protected Sub btnVolver_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnVolver.Click
            pnlReprogramacion.Visible = False
            ucBusqueda1.Visible = True
        End Sub

        Protected Sub btnGuardarProgramacion_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnGuardarProgramacion.Click
            ActualizarActividades()
        End Sub

#End Region

    End Class

End Namespace
